se "h6caedc6!n2cdEdit c6more lists? c7[cbYesc7]c6: cb";gc;a=result
if a="N" then do;tr "c9Noc6.";signal QUIT;end;else tr "Yesc6!";c=1;signal START
QUIT:;tr "n1cePGN cdTitle c6Editc7, cfv1.1 c7(ca13-Jun-95c7) by cdDotoranc7!";exit
PARSE: procedure expose it.;arg rng,min,max;it.='';c=0;it=translate(rng,' ','.,');do a=1 to words(it);c=c+1;it.c=word(it,a);if index(it.c,'-')>0 then do;parse var it.c x'-'y
if y='' then y=max;if x='' then x=min;if x>y then do;d=x;x=y;y=d;end;if x<min|y>max|~datatype(x,'W')|~datatype(y,'W') then do;c=c-1;iterate;end
do b=x to y;it.c=b;c=c+1;end;c=c-1;end;else if it.c<min|it.c>max|~datatype(it.c,'W') then do;c=c-1;iterate;end;end;return c